open Castling;;

module CharPG = ParserGenerator (CharToken);;
open CharPG;;

let rec test = lazy !! (
	sequence_of (element 'X' >> position) >>
	sequence_of (element 'Y' >> position)
);;

debug := true;;
runtime_debug := true;;
generate test;;
